MacWorld 1999 July

home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Graphics / AutoPlotVW Package / AP Plug-ins / AP_Align TB on insert.vsm < prev next >
Unknown | 1999-01-20 | 4.3 KB | [MCmp/CDP3]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	siegfried	fmt/1142 VectorWorks Plugin or Script	default
id metadata
key	value
macFileType	`[MCmp]`
macFileCreator	`[CDP3]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4d 43 56 53 00 4d 15 41 | 50 5f 41 6c 69 67 6e 20 |MCVS.M.A|P_Align |
|00000010| 54 42 20 6f 6e 20 69 6e | 73 65 72 74 4b f8 a2 f1 |TB on in|sertK...|
|00000020| 60 00 00 00 7c 03 e0 40 | 41 82 00 24 7c 03 f0 40 |`...|..@|A..$|..@|
|00000030| 40 82 00 0c b3 bb 00 04 | 48 00 00 14 3c 60 20 03 |@.......|H...<` .|
|00000040| 38 63 00 08 4b f7 08 41 | 75 74 6f 50 6c 6f 74 6e |8c..K..A|utoPlotn|
|00000050| 65 6f 75 73 90 1f 00 00 | 48 00 00 38 80 9f 00 00 |eous....|H..8....|
|00000060| 7f 63 db 78 38 04 00 f8 | 90 1f 00 00 4b f8 02 e9 |.c.x8...|....K...|
|00000070| 60 00 00 00 80 81 01 e8 | 38 00 00 00 80 62 8a 38 |`.......|8....b.8|
|00000080| 90 04 00 18 80 63 00 01 | 00 00 08 b2 00 00 08 65 |.....c..|.......e|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 08 81 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 14 02 ea |........|........|
|000007b0| 00 f8 90 1f 00 00 4b f8 | 02 e9 60 00 00 00 80 81 |......K.|..`.....|
|000007c0| 01 e8 38 00 00 00 80 62 | 8a 38 90 04 00 18 80 63 |..8....b|.8.....c|
|000007d0| 00 00 4b f7 81 61 60 00 | 00 00 80 01 01 d8 38 21 |..K..a`.|......8!|
|000007e0| 01 d0 7c 08 03 a6 bb 61 | ff ec 4e 80 00 20 2c 04 |..|....a|..N.. ,.|
|000007f0| 00 02 41 82 00 64 40 80 | 00 68 2c 04 00 01 40 80 |..A..d@.|.h,...@.|
|00000800| 00 08 48 00 00 5c 38 e0 | 00 00 7c e4 3b 78 38 05 |..H..\8.|..|.;x8.|
|00000810| 00 01 7c 09 03 a6 2c 05 | 00 00 4d 80 00 20 7c e3 |..|...,.|..M.. |.|
|00000820| 21 ae 88 a6 00 00 00 00 | 00 14 02 ea 50 c0 00 00 |!.......|....P...|
|00000830| 00 04 00 00 00 00 03 a3 | e5 ba 00 00 00 0c 03 a3 |........|........|
|00000840| e5 c6 02 f6 d3 fc 00 00 | 00 14 02 ea 50 c0 48 65 |........|....P.He|
|00000850| 6c 70 00 00 00 00 02 f6 | d4 fa 00 00 00 0c 02 f6 |lp......|........|
|00000860| d5 06 02 f6 d4 1c 00 00 | 00 14 02 ea 50 c0 45 72 |........|....P.Er|
|00000870| 41 63 00 00 00 00 03 a3 | e5 ba 00 00 00 0c 02 f6 |Ac......|........|
|00000880| d5 06 02 f6 d4 3c 00 00 | 00 14 02 ea 50 c0 44 72 |.....<..|....P.Dr|
|00000890| 41 63 00 00 00 49 03 a3 | e5 ba 00 00 00 0c 02 f6 |Ac...I..|........|
|000008a0| d5 06 02 f6 d4 5c 00 00 | 00 14 02 ea 50 c0 78 4b |.....\..|....P.xK|
|000008b0| 00 00 7b 4d 61 63 72 6f | 73 20 44 65 76 65 6c 6f |..{Macro|s Develo|
|000008c0| 70 65 64 20 62 79 20 53 | 61 6d 20 4a 6f 6e 65 73 |ped by S|am Jones|
|000008d0| 7d 0d 7b a9 20 43 6f 70 | 79 72 69 67 68 74 20 4a |}.{. Cop|yright J|
|000008e0| 75 6e 65 20 31 39 39 33 | 7d 0d 7b 69 6e 20 63 6f |une 1993|}.{in co|
|000008f0| 6e 73 75 6c 74 61 74 69 | 6f 6e 20 77 69 74 68 20 |nsultati|on with |
|00000900| 53 74 61 6e 20 50 72 65 | 73 73 6e 65 72 7d 0d 7b |Stan Pre|ssner}.{|
|00000910| 53 65 65 20 43 72 65 64 | 69 74 73 7d 0d 0d 7b 54 |See Cred|its}..{T|
|00000920| 68 69 73 20 6d 61 63 72 | 6f 20 77 69 6c 6c 20 61 |his macr|o will a|
|00000930| 6c 69 67 6e 20 73 65 6c | 65 63 74 65 64 20 6c 69 |lign sel|ected li|
|00000940| 67 68 74 69 6e 67 20 75 | 6e 69 74 73 20 68 6f 72 |ghting u|nits hor|
|00000950| 69 7a 6f 6e 74 61 6c 6c | 79 20 61 6c 6f 6e 67 20 |izontall|y along |
|00000960| 74 68 65 20 59 20 61 78 | 69 73 20 75 73 69 6e 67 |the Y ax|is using|
|00000970| 20 74 68 65 69 72 0d 69 | 6e 73 65 72 74 69 6f 6e | their.i|nsertion|
|00000980| 20 70 6f 69 6e 74 73 7d | 0d 0d 50 52 4f 43 45 44 | points}|..PROCED|
|00000990| 55 52 45 20 41 6c 69 67 | 6e 4c 69 67 68 74 73 54 |URE Alig|nLightsT|
|000009a0| 42 3b 0d 0d 56 41 52 0d | 09 4f 62 6a 48 61 6e 64 |B;..VAR.|.ObjHand|
|000009b0| 6c 65 3a 48 61 6e 64 6c | 65 3b 0d 09 49 6e 73 69 |le:Handl|e;..Insi|
|000009c0| 64 65 48 61 6e 64 6c 65 | 31 3a 48 61 6e 64 6c 65 |deHandle|1:Handle|
|000009d0| 3b 0d 09 49 6e 73 69 64 | 65 48 61 6e 64 6c 65 32 |;..Insid|eHandle2|
|000009e0| 3a 48 61 6e 64 6c 65 3b | 0d 09 4c 61 79 65 72 48 |:Handle;|..LayerH|
|000009f0| 61 6e 64 6c 65 3a 48 61 | 6e 64 6c 65 3b 0d 09 52 |andle:Ha|ndle;..R|
|00000a00| 65 63 48 61 6e 64 6c 65 | 3a 48 61 6e 64 6c 65 3b |ecHandle|:Handle;|
|00000a10| 0d 09 52 65 61 6c 58 2c | 20 52 65 61 6c 59 3a 52 |..RealX,| RealY:R|
|00000a20| 45 41 4c 3b 0d 09 4f 62 | 6a 58 31 2c 20 4f 62 6a |EAL;..Ob|jX1, Obj|
|00000a30| 59 31 2c 20 4f 62 6a 58 | 32 2c 20 4f 62 6a 59 32 |Y1, ObjX|2, ObjY2|
|00000a40| 20 3a 20 52 45 41 4c 3b | 0d 09 58 31 2c 59 31 2c | : REAL;|..X1,Y1,|
|00000a50| 58 32 2c 59 32 20 3a 20 | 52 45 41 4c 3b 0d 09 44 |X2,Y2 : |REAL;..D|
|00000a60| 59 3a 52 45 41 4c 3b 0d | 09 4f 72 69 67 69 6e 58 |Y:REAL;.|.OriginX|
|00000a70| 3a 52 45 41 4c 3b 0d 09 | 4f 72 69 67 69 6e 59 3a |:REAL;..|OriginY:|
|00000a80| 52 45 41 4c 3b 0d 09 54 | 68 65 4b 65 79 3a 49 6e |REAL;..T|heKey:In|
|00000a90| 74 65 67 65 72 3b 0d 09 | 41 62 6f 72 74 3a 62 6f |teger;..|Abort:bo|
|00000aa0| 6f 6c 65 61 6e 3b 0d 0d | 42 45 47 49 4e 0d 09 47 |olean;..|BEGIN..G|
|00000ab0| 65 74 4f 72 69 67 69 6e | 28 4f 72 69 67 69 6e 58 |etOrigin|(OriginX|
|00000ac0| 2c 4f 72 69 67 69 6e 59 | 29 3b 0d 09 54 68 65 4b |,OriginY|);..TheK|
|00000ad0| 65 79 20 3a 3d 20 31 3b | 0d 20 09 4d 65 73 73 61 |ey := 1;|. .Messa|
|00000ae0| 67 65 28 27 43 6c 69 63 | 6b 20 6f 6e 20 59 20 63 |ge('Clic|k on Y c|
|00000af0| 6f 6f 72 2c 20 68 6f 6c | 64 20 6b 65 79 20 64 6f |oor, hol|d key do|
|00000b00| 77 6e 20 64 75 72 69 6e | 67 20 63 6c 69 63 6b 20 |wn durin|g click |
|00000b10| 74 6f 20 61 62 6f 72 74 | 27 29 3b 0d 20 09 47 65 |to abort|');. .Ge|
|00000b20| 74 50 74 28 52 65 61 6c | 58 2c 52 65 61 6c 59 29 |tPt(Real|X,RealY)|
|00000b30| 3b 0d 09 41 62 6f 72 74 | 20 3a 3d 20 4b 65 79 44 |;..Abort| := KeyD|
|00000b40| 6f 77 6e 28 54 68 65 4b | 65 79 29 3b 0d 0d 09 49 |own(TheK|ey);...I|
|00000b50| 46 20 54 68 65 4b 65 79 | 20 3d 20 30 20 54 48 45 |F TheKey| = 0 THE|
|00000b60| 4e 0d 09 42 45 47 49 4e | 0d 7b 20 09 09 52 65 61 |N..BEGIN|.{ ..Rea|
|00000b70| 6c 58 3a 3d 20 52 65 61 | 6c 58 20 2d 20 4f 72 69 |lX:= Rea|lX - Ori|
|00000b80| 67 69 6e 58 3b 20 7d 0d | 7b 20 09 09 52 65 61 6c |ginX; }.|{ ..Real|
|00000b90| 59 3a 3d 20 52 65 61 6c | 59 20 2d 20 4f 72 69 67 |Y:= Real|Y - Orig|
|00000ba0| 69 6e 59 3b 20 7d 0d 09 | 09 4c 61 79 65 72 48 61 |inY; }..|.LayerHa|
|00000bb0| 6e 64 6c 65 3a 3d 46 4c | 61 79 65 72 3b 0d 09 09 |ndle:=FL|ayer;...|
|00000bc0| 57 48 49 4c 45 20 4c 61 | 79 65 72 48 61 6e 64 6c |WHILE La|yerHandl|
|00000bd0| 65 3c 3e 4e 49 4c 20 44 | 4f 0d 09 09 42 45 47 49 |e<>NIL D|O...BEGI|
|00000be0| 4e 0d 09 09 09 4f 62 6a | 48 61 6e 64 6c 65 3a 3d |N....Obj|Handle:=|
|00000bf0| 46 53 4f 62 6a 65 63 74 | 28 4c 61 79 65 72 48 61 |FSObject|(LayerHa|
|00000c00| 6e 64 6c 65 29 3b 0d 09 | 09 09 57 48 49 4c 45 20 |ndle);..|..WHILE |
|00000c10| 4f 62 6a 48 61 6e 64 6c | 65 3c 3e 4e 49 4c 20 44 |ObjHandl|e<>NIL D|
|00000c20| 4f 0d 09 09 09 42 45 47 | 49 4e 0d 09 09 09 09 49 |O....BEG|IN.....I|
|00000c30| 46 20 47 65 74 54 79 70 | 65 28 4f 62 6a 48 61 6e |F GetTyp|e(ObjHan|
|00000c40| 64 6c 65 29 3d 31 35 20 | 20 54 48 45 4e 0d 09 09 |dle)=15 | THEN...|
|00000c50| 09 09 42 45 47 49 4e 0d | 09 09 09 09 09 52 65 63 |..BEGIN.|.....Rec|
|00000c60| 48 61 6e 64 6c 65 3a 3d | 47 65 74 52 65 63 6f 72 |Handle:=|GetRecor|
|00000c70| 64 28 4f 62 6a 48 61 6e | 64 6c 65 2c 31 29 3b 0d |d(ObjHan|dle,1);.|
|00000c80| 09 09 09 09 09 49 46 20 | 28 52 65 63 48 61 6e 64 |.....IF |(RecHand|
|00000c90| 6c 65 3c 3e 4e 49 4c 29 | 20 54 48 45 4e 0d 09 09 |le<>NIL)| THEN...|
|00000ca0| 09 09 09 42 45 47 49 4e | 0d 09 09 09 09 09 09 47 |...BEGIN|.......G|
|00000cb0| 65 74 53 79 6d 4c 6f 63 | 28 4f 62 6a 48 61 6e 64 |etSymLoc|(ObjHand|
|00000cc0| 6c 65 2c 4f 62 6a 58 31 | 2c 4f 62 6a 59 31 29 3b |le,ObjX1|,ObjY1);|
|00000cd0| 0d 09 09 09 09 09 09 44 | 59 3a 3d 52 65 61 6c 59 |.......D|Y:=RealY|
|00000ce0| 2d 4f 62 6a 59 31 3b 0d | 09 09 09 09 09 09 48 6d |-ObjY1;.|......Hm|
|00000cf0| 6f 76 65 28 4f 62 6a 48 | 61 6e 64 6c 65 2c 30 2c |ove(ObjH|andle,0,|
|00000d00| 44 59 29 3b 0d 09 09 09 | 09 09 45 4e 44 3b 20 7b |DY);....|..END; {|
|00000d10| 49 46 20 28 52 65 63 48 | 61 6e 64 6c 65 3c 3e 4e |IF (RecH|andle<>N|
|00000d20| 49 4c 29 7d 0d 09 09 09 | 09 45 4e 44 20 7b 49 46 |IL)}....|.END {IF|
|00000d30| 20 47 65 74 54 79 70 65 | 28 78 29 3d 31 35 7d 0d | GetType|(x)=15}.|
|00000d40| 09 09 09 09 45 4c 53 45 | 20 49 46 20 47 65 74 54 |....ELSE| IF GetT|
|00000d50| 79 70 65 28 4f 62 6a 48 | 61 6e 64 6c 65 29 3d 31 |ype(ObjH|andle)=1|
|00000d60| 31 20 54 48 45 4e 0d 09 | 09 09 09 42 45 47 49 4e |1 THEN..|...BEGIN|
|00000d70| 0d 09 09 09 09 09 49 6e | 73 69 64 65 48 61 6e 64 |......In|sideHand|
|00000d80| 6c 65 31 20 3a 3d 20 46 | 49 6e 47 72 6f 75 70 28 |le1 := F|InGroup(|
|00000d90| 4f 62 6a 48 61 6e 64 6c | 65 29 3b 0d 09 09 09 09 |ObjHandl|e);.....|
|00000da0| 09 49 46 20 47 65 74 54 | 79 70 65 28 49 6e 73 69 |.IF GetT|ype(Insi|
|00000db0| 64 65 48 61 6e 64 6c 65 | 31 29 3d 31 35 20 54 48 |deHandle|1)=15 TH|
|00000dc0| 45 4e 0d 09 09 09 09 09 | 42 45 47 49 4e 0d 09 09 |EN......|BEGIN...|
|00000dd0| 09 09 09 09 52 65 63 48 | 61 6e 64 6c 65 3a 3d 47 |....RecH|andle:=G|
|00000de0| 65 74 52 65 63 6f 72 64 | 28 49 6e 73 69 64 65 48 |etRecord|(InsideH|
|00000df0| 61 6e 64 6c 65 31 2c 31 | 29 3b 0d 09 09 09 09 09 |andle1,1|);......|
|00000e00| 09 49 46 20 28 52 65 63 | 48 61 6e 64 6c 65 3c 3e |.IF (Rec|Handle<>|
|00000e10| 4e 49 4c 29 20 54 48 45 | 4e 0d 09 09 09 09 09 09 |NIL) THE|N.......|
|00000e20| 42 45 47 49 4e 0d 09 09 | 09 09 09 09 09 49 6e 73 |BEGIN...|.....Ins|
|00000e30| 69 64 65 48 61 6e 64 6c | 65 32 20 3a 3d 20 4e 65 |ideHandl|e2 := Ne|
|00000e40| 78 74 4f 62 6a 28 49 6e | 73 69 64 65 48 61 6e 64 |xtObj(In|sideHand|
|00000e50| 6c 65 31 29 3b 0d 09 09 | 09 09 09 09 09 47 65 74 |le1);...|.....Get|
|00000e60| 53 79 6d 4c 6f 63 28 49 | 6e 73 69 64 65 48 61 6e |SymLoc(I|nsideHan|
|00000e70| 64 6c 65 31 2c 4f 62 6a | 58 31 2c 4f 62 6a 59 31 |dle1,Obj|X1,ObjY1|
|00000e80| 29 3b 0d 09 09 09 09 09 | 09 09 47 65 74 53 79 6d |);......|..GetSym|
|00000e90| 4c 6f 63 28 49 6e 73 69 | 64 65 48 61 6e 64 6c 65 |Loc(Insi|deHandle|
|00000ea0| 32 2c 4f 62 6a 58 32 2c | 4f 62 6a 59 32 29 3b 0d |2,ObjX2,|ObjY2);.|
|00000eb0| 09 09 09 09 09 09 09 49 | 46 20 4f 62 6a 59 31 20 |.......I|F ObjY1 |
|00000ec0| 3c 3e 20 4f 62 6a 59 32 | 20 54 48 45 4e 20 0d 09 |<> ObjY2| THEN ..|
|00000ed0| 09 09 09 09 09 09 42 45 | 47 49 4e 0d 09 09 09 09 |......BE|GIN.....|
|00000ee0| 09 09 09 09 47 65 74 42 | 42 6f 78 28 4f 62 6a 48 |....GetB|Box(ObjH|
|00000ef0| 61 6e 64 6c 65 2c 58 31 | 2c 59 31 2c 58 32 2c 59 |andle,X1|,Y1,X2,Y|
|00000f00| 32 29 3b 0d 09 09 09 09 | 09 09 09 09 4f 62 6a 59 |2);.....|....ObjY|
|00000f10| 31 20 3a 3d 20 59 31 2b | 20 28 28 59 32 20 2d 20 |1 := Y1+| ((Y2 - |
|00000f20| 59 31 29 2f 32 29 3b 0d | 09 09 09 09 09 09 09 45 |Y1)/2);.|.......E|
|00000f30| 4e 44 0d 09 09 09 09 09 | 09 09 45 4c 53 45 0d 09 |ND......|..ELSE..|
|00000f40| 09 09 09 09 09 09 09 47 | 65 74 53 79 6d 4c 6f 63 |.......G|etSymLoc|
|00000f50| 28 49 6e 73 69 64 65 48 | 61 6e 64 6c 65 31 2c 4f |(InsideH|andle1,O|
|00000f60| 62 6a 58 31 2c 4f 62 6a | 59 31 29 3b 0d 09 09 09 |bjX1,Obj|Y1);....|
|00000f70| 09 09 09 09 44 59 3a 3d | 52 65 61 6c 59 2d 4f 62 |....DY:=|RealY-Ob|
|00000f80| 6a 59 31 3b 0d 09 09 09 | 09 09 09 09 48 6d 6f 76 |jY1;....|....Hmov|
|00000f90| 65 28 4f 62 6a 48 61 6e | 64 6c 65 2c 30 2c 44 59 |e(ObjHan|dle,0,DY|
|00000fa0| 29 3b 0d 09 09 09 09 09 | 09 45 4e 44 3b 20 7b 49 |);......|.END; {I|
|00000fb0| 46 20 28 52 65 63 48 61 | 6e 64 6c 65 3c 3e 4e 49 |F (RecHa|ndle<>NI|
|00000fc0| 4c 29 7d 0d 09 09 09 09 | 09 45 4e 44 3b 20 7b 49 |L)}.....|.END; {I|
|00000fd0| 46 20 47 65 74 54 79 70 | 65 28 49 6e 73 69 64 65 |F GetTyp|e(Inside|
|00000fe0| 48 61 6e 64 6c 65 29 3d | 31 35 7d 0d 09 09 09 09 |Handle)=|15}.....|
|00000ff0| 45 4e 44 3b 20 7b 45 4c | 53 45 20 49 46 20 47 65 |END; {EL|SE IF Ge|
|00001000| 74 54 79 70 65 28 4f 62 | 6a 48 61 6e 64 6c 65 29 |tType(Ob|jHandle)|
|00001010| 3d 31 31 7d 0d 7b 20 09 | 09 09 09 52 65 64 72 61 |=11}.{ .|...Redra|
|00001020| 77 41 6c 6c 3b 20 7d 0d | 09 09 09 09 4f 62 6a 48 |wAll; }.|....ObjH|
|00001030| 61 6e 64 6c 65 3a 3d 4e | 65 78 74 53 4f 62 6a 28 |andle:=N|extSObj(|
|00001040| 4f 62 6a 48 61 6e 64 6c | 65 29 3b 0d 09 09 09 45 |ObjHandl|e);....E|
|00001050| 4e 44 3b 20 20 7b 57 48 | 49 4c 45 20 4f 62 6a 48 |ND;  {WH|ILE ObjH|
|00001060| 61 6e 64 6c 65 3c 3e 4e | 49 4c 7d 0d 09 09 09 4c |andle<>N|IL}....L|
|00001070| 61 79 65 72 48 61 6e 64 | 6c 65 3a 3d 4e 65 78 74 |ayerHand|le:=Next|
|00001080| 4c 61 79 65 72 28 4c 61 | 79 65 72 48 61 6e 64 6c |Layer(La|yerHandl|
|00001090| 65 29 3b 0d 09 09 45 4e | 44 3b 20 20 7b 57 48 49 |e);...EN|D;  {WHI|
|000010a0| 4c 45 20 4c 61 79 65 72 | 48 61 6e 64 6c 65 3c 3e |LE Layer|Handle<>|
|000010b0| 4e 49 4c 7d 0d 09 09 52 | 65 64 72 61 77 3b 0d 09 |NIL}...R|edraw;..|
|000010c0| 45 4e 44 3b 20 7b 49 46 | 20 54 68 65 4b 65 79 20 |END; {IF| TheKey |
|000010d0| 3c 3e 20 30 7d 0d 09 43 | 6c 72 4d 65 73 73 61 67 |<> 0}..C|lrMessag|
|000010e0| 65 3b 0d 45 4e 44 3b 20 | 7b 50 52 4f 43 45 44 55 |e;.END; |{PROCEDU|
|000010f0| 52 45 20 41 6c 69 67 6e | 4c 69 67 68 74 73 54 42 |RE Align|LightsTB|
|00001100| 7d 0d 0d 52 75 6e 28 41 | 6c 69 67 6e 4c 69 67 68 |}..Run(A|lignLigh|
|00001110| 74 73 54 42 29 3b 0d    |                         |tsTB);. |        |
+--------+-------------------------+-------------------------+--------+--------+